home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / L-PAD.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  1.8 KB  |  77 lines
  1. 10  'L-PAD  21 APR 86 rev. 29 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  U$="####,###.#"
  7. 70  '
  8. 80  '.....start
  9. 90  CLS:Z1=0:Z2=0:R1=0:R2=0:L=0
  10. 100  COLOR 15,2
  11. 110  PRINT " L-PAD IMPEDANCE MATCHING CIRCUIT";
  12. 120  PRINT TAB(57);"by George Murphy VE3ERP ";
  13. 130  COLOR 1,0:PRINT STRING$(80,223);
  14. 140  COLOR 7,0
  15. 150  RO=CSRLIN:CO=2:GOSUB 530 'diagram
  16. 160  COLOR 0,7:LOCATE CSRLIN,22
  17. 170  PRINT " Press 1 to continue or 0 to EXIT....."
  18. 180  COLOR 7,0
  19. 190  Z$=INKEY$:IF Z$=""THEN 190
  20. 200  IF Z$="0"THEN CLS:RUN EX$
  21. 210  IF Z$="1"THEN 230
  22. 220  GOTO 190
  23. 230  LOCATE CSRLIN-1:PRINT STRING$(80,32);:LOCATE CSRLIN-1
  24. 240  INPUT " ENTER: INPUT impedence in ohms.................";Z1
  25. 250  INPUT " ENTER: OUTPUT impedence in ohms................";Z2
  26. 260  '
  27. 270  '.....calculation
  28. 280  IF Z1<Z2 THEN X=1:SWAP Z1,Z2
  29. 290  R1=Z1*SQR(1-(Z2/Z1))
  30. 300  R2=Z2/SQR(1-(Z2/Z1))
  31. 310  M=SQR(Z1/Z2)+SQR((Z1/Z2)-1)
  32. 320  LF=1/LOG(10)       'log factor to convert natural log to log base 10
  33. 330  F1=LF*LOG(M)
  34. 340  L=20*F1            'loss in dB
  35. 350  IF X THEN X=0:SWAP Z1,Z2
  36. 360  VIEW PRINT 3 TO 23
  37. 370  CLS:GOSUB 530
  38. 380  COLOR 0,7
  39. 390  IF Z1>Z2 THEN LOCATE RO,CO+ 3:PRINT " R1 "
  40. 400  IF Z2>Z1 THEN LOCATE RO,CO+12:PRINT " R1 "
  41. 410  COLOR 7,0
  42. 420  LOCATE RO+6
  43. 430  PRINT " Z in .....";USING U$;Z1;:PRINT " -"
  44. 440  PRINT " Z out ....";USING U$;Z2;:PRINT " -"
  45. 450  PRINT " R1 .......";USING U$;R1;:PRINT " -"
  46. 460  PRINT " R2 .......";USING U$;R2;:PRINT " -"
  47. 470  PRINT " Loss .....";USING U$;L;:PRINT " dB"
  48. 480  PRINT UL$;
  49. 490  LN=14
  50. 500  GOSUB 640
  51. 510  GOTO 80   'start
  52. 520  '
  53. 530  '.....diagram
  54. 540  COLOR 0,7
  55. 550  LOCATE RO+0,CO:PRINT " SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND "
  56. 560  LOCATE RO+1,CO:PRINT "         CALL         "
  57. 570  LOCATE RO+2,CO:PRINT " Z in   R2   Z out "
  58. 580  LOCATE RO+3,CO:PRINT "         CALL         "
  59. 590  LOCATE RO+4,CO:PRINT " SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND "
  60. 600  COLOR 7,0
  61. 610  PRINT UL$;
  62. 620  RETURN
  63. 630  '
  64. 640  'HARDCOPY
  65. 650  GOSUB 760:LOCATE 25,2:COLOR 14,6
  66. 660  PRINT " Press 1 to print screen, 2 to print screen & ";
  67. 670  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  68. 680  Z$=INKEY$:IF Z$="3"THEN GOSUB 760:RETURN
  69. 690  IF Z$="1"OR Z$="2"THEN GOSUB 760:GOTO 710
  70. 700  GOTO 680
  71. 710  FOR QX=1 TO 24:FOR QY=1 TO 80
  72. 720  LPRINT CHR$(SCREEN(QX,QY));
  73. 730  NEXT QY:NEXT QX
  74. 740  IF Z$="2"THEN LPRINT CHR$(12)
  75. 750  GOTO 650
  76. 760  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  77.